home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU17.ARC / BOOT MAKER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.4 KB  |  46 lines
  1. 10 REM *** BOOT MAKER ***
  2. 20 PRINT"[147]"SPC(12)" BOOT MAKER [146][157][157]"
  3. 50 PRINT"THIS PRG. WILL CREATE A BOOTER PRG. ON"
  4. 51 PRINT"YOUR DISK, WHICH WHEN LOADED ',8,1'"
  5. 60 PRINT"WILL LOAD AND RUN ANOTHER PRG. ON THE   DISK."
  6. 70 PRINT"  ENTER A NAME FOR THE BOOTER PRG. & THE NAME OF THE PRG. TO BE BOOTED.
  7. 80 [133]"BOOTER NAME";BR$
  8. 81 [139] BR$[178]""[167] 80
  9. 90 [133]"BOOTEE NAME";BE$
  10. 91 [139] BE$[178]""[167] 90
  11. 92 [133]"LOADING ADDRESS-HEX-BASIC=0801";L$
  12. 93 [141]2000
  13. 94 [133]"STARTING ADDRESS-HEX-BASIC=A871";Q$
  14. 95 [141] 4000
  15. 100 [159]15,8,15
  16. 200 [159]8,8,2,BR$[170]",P,W":[141]1000
  17. 210 [152]8,[199](0)[199](1);
  18. 220 [129]X[178]O[164]255:[152]8,[199](2);:[130]
  19. 230 [152]8,[199](0)[199](0)[199](0)[199](169);
  20. 240 [152]8,[199]([195](BE$));
  21. 250 [135]A:[139]A[178]997[167]6000
  22. 260 [152]8,[199](A);:[137]250
  23. 300 [131] 162,61,160,2,32,189,255,169,2,162,8,160,0,32,186,255,169,0,162,997
  24. 305 [135]B:[139] B[178]998[167]7000
  25. 306 [152]8,[199](B);:[137]305
  26. 310 [131] 32,213,255,134,45,132,46,234,234,234,234,234,234,234
  27. 320 [131] 234,234,234,234,234,234,234,234,234,234,234,234,234,234,234,234,234,998
  28. 400 [152]8,BE$:[160]8:[141]1000:[128]
  29. 1000 [132]15,EN,EM$,ET,ES
  30. 1010 [139] EN [167] [153]"DISK ERRORWAIT";EN;EM$;ET,ES:[144]
  31. 1020 [142]
  32. 2000 L[178]0:[129]J[178]1[164]4:L%[178][198](L$):L%[178]L%[171]48[170](L%[177]64)[172]7:L$[178][202](L$,2):L[178]16[172]L[170]L%:[130]
  33. 2020 X[178][181](L[173]4096):Y[178][181]((L[171]X[172]4096)[173]256):R[178][181](((L[171](X[172]4096)[171](Y[172]256))[173]16)):
  34. 2030 S1[178][181](L[171](X[172]4096)[171](Y[172]256)[171](R[172]16))
  35. 2040 LB[178]R[172]16[170]S1:
  36. 2050 HB[178]X[172]16[170]Y:
  37. 3030 [142]
  38. 4000 Q[178]0:[129]J[178]1[164]4:Q%[178][198](Q$):Q%[178]Q%[171]48[170](Q%[177]64)[172]7:Q$[178][202](Q$,2):Q[178]16[172]Q[170]Q%:[130]
  39. 4020 B[178][181](Q[173]4096):C[178][181]((Q[171]B[172]4096)[173]256):D[178][181](((Q[171](B[172]4096)[171](C[172]256))[173]16)):
  40. 4030 E[178][181](Q[171](B[172]4096)[171](C[172]256)[171](D[172]16))
  41. 4040 SLB[178]D[172]16[170]E:
  42. 4050 SHB[178]B[172]16[170]C:
  43. 4060 [142]
  44. 6000 [152]8,[199](LB)[199](160)[199](HB);:[137]305
  45. 7000 [152]8,[199](76)[199](SLB)[199](SHB);:[137]400
  46.